﻿Public Class AdministradorNegocio

    Public Function validar(ByVal idadmin As String, ByVal clave As String) As Administrador
        Dim modelo As New Administrador
        modelo.idAdmin = idadmin
        modelo.clave = clave

        Dim dao As New AdministradorDAO
        Return dao.validar(modelo)
    End Function
End Class
